home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD022a.dsk / KICK.IT.OFF.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  36 lines
  1. 10  REM    KICK.IT.OFF
  2. 15 D$ =  CHR$(4)
  3. 20  TEXT : SPEED= 255: HOME 
  4. 30  HTAB 4: PRINT "SOFTDISK MAGAZETTE   AUGUST 83"
  5. 35  PRINT : HTAB 10: PRINT "A = COVER PAGE"
  6. 40  PRINT : HTAB 10: PRINT "B = ABOUT SOFTDISK"
  7. 44  PRINT : HTAB 10: PRINT "C = ORDER BLANK"
  8. 50  PRINT : HTAB 10: PRINT "D = ERNIE'S INVOICE SYSTEM"
  9. 70  PRINT : HTAB 10: PRINT "E = WHY FIDGET?"
  10. 75  PRINT : HTAB 10: PRINT "F = ANSWER MAN"
  11. 80  PRINT : HTAB 10: PRINT "G = MACHINE MAGIC (PART 2)"
  12. 85  PRINT : HTAB 10: PRINT "H = BASIC TUTORIAL (PART 3)"
  13. 87  PRINT : HTAB 10: PRINT "I = ON WITH THE SHOW"
  14. 89  PRINT : HTAB 10: PRINT "J = QUIT"
  15. 90  PRINT : HTAB 3: PRINT "WHICH? ";: GET R$: PRINT R$;
  16. 95  IF R$ = "A" GOTO 1000
  17. 110  IF R$ = "B" GOTO 2000
  18. 115  IF R$ = "C"  THEN 3000
  19. 120  IF R$ = "D"  THEN 4000
  20. 135  IF R$ = "E" GOTO 5000
  21. 140  IF R$ = "F" GOTO 6000
  22. 150  IF R$ = "G" GOTO 7000
  23. 160  IF R$ = "H" GOTO 7500
  24. 170  IF R$ = "I" GOTO 8000
  25. 175  IF R$ = "J" GOTO 9000
  26. 200  GOTO 20
  27. 1000  PRINT D$;"RUN AUG 83.COVER"
  28. 2000  PRINT D$;"RUN ABOUT.SOFTDISK"
  29. 3000  PRINT D$"RUN ORDER.BLANK"
  30. 4000  PRINT D$"RUN INVOICE.SYSTEM.1"
  31. 5000  PRINT D$;"RUN WHY FIDGET"
  32. 6000  PRINT D$;"RUN ANSWER MAN.PROG"
  33. 7000  PRINT D$"RUN MACHINE MAGIC"
  34. 7500  PRINT D$;"BRUN TUTITLE"
  35. 8000  PRINT D$;"RUN SOFTDISK.PROG"
  36. 9000  TEXT : HOME : VTAB 12: HTAB 1: PRINT "DON'T FORGET TO BOOT OTHER SIDE OF DISK."